home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 5 / BBS in a Box -Volume V (BBS in a Box) (April 1992).iso / Files / Tele / S / SUPERDIALER < prev    next >
Encoding:
Text File  |  1987-12-05  |  3.9 KB  |  190 lines  |  [TEXT/MSWD]
  1. (RESET BILLING & TURN OFF MODEM SPEAKER)
  2. SETCOST 0
  3. RESET
  4. TYPE ATM^M
  5. ERASE ALL
  6. (SET REDIAL COUNTER TO 0)
  7. LET EQUAL W%,0
  8. (CREATE DIALOG BOX)
  9. :DIALOG
  10. COPYINTO X$,     (A) Nova; (B) Dunedin Realty; (C) Meganet; (D) Litigator
  11. COPYINTO Y$,                  (R) All local #s; (X) To Abort
  12. COPYINTO Z$,                All UNCONNECTED #s simply click <OK> 
  13. CLEAR
  14. QUERY1 A$
  15.  
  16. (CONVERT TO ALL ENTRIES TO UPPER CASE)
  17. CONVUP A$
  18.  
  19. (CHECK FOR OCCURENCE OF A,B,C,D etc)
  20. INSTR A%,A$,1,A
  21. INSTR B%,A$,1,B
  22. INSTR C%,A$,1,C
  23. INSTR D%,A$,1,D
  24. INSTR X%,A$,1,X
  25. INSTR R%,A$,1,R
  26.  
  27. (ABORT PROCEDURE?)
  28. TEST X% > 0
  29. IF YES JUMPTO END
  30. (DIAL ALL?)
  31. TEST R% > 0
  32. IF YES GOSUB DIALALL
  33.  
  34. (START DIALING SELECTED NUMBERS SKIPPING)
  35. (TO THE NEXT ONE UPON RECEIVING A BUSY)
  36. (SIGNAL FROM THE MODEM.  IF YOUR MODEM DOESN’T)
  37. (RETURN BUSY SIGNALS, CHANGE BUSY TO)
  38. (NO CARRIER.  UPON CONNECTING TO THE FIRST
  39. (NON-BUSY SERVICE, THE PROGRAM EXECUTES A
  40. (LOG-ON PROCEDURE.  Note:  SUCCESSIVE EXECUTIONS
  41. (OF THIS PROGRAM WILL REDIAL __only__ those
  42. (NUMBERS WHICH WERE SELECTED THE FIRST TIME _BUT_
  43. (WHICH HAVE NOT CONNECTED _if_ YOU SIMPLY CLICK
  44. ( <OK> ON THE SUCCESSIVE EXECUTIONS WITHOUT
  45. (SPECIFYING WHICH NUMBERS TO DIAL)
  46.  
  47. :MORE
  48. ADD T%,A%
  49. ADD T%,B%
  50. ADD T%,C%
  51. ADD T%,D%
  52.  
  53. TEST T% > 0
  54. IF NO JUMPTO DONE
  55. LET EQUAL T%,0
  56.  
  57. (ADD 1 TO REDIAL COUNTER)
  58. ADD W%,1
  59. (CONVERT COUNTER NUM-VAR TO STRING VARIABLE)
  60. NUMTOSTRING W%,W$
  61.  
  62. :YYYY
  63.  
  64. TEST A% = 0
  65. IF YES JUMPTO MMMM
  66. COMM 1200-N-8-1-FULL
  67. GOSUB COUNTER
  68. TYPE Dialing NOVA BBS^M
  69. DIAL ATS7=15DT, 544 8049
  70. PANICAFTER 30
  71. ONPANIC JUMPTO MMMM
  72. ALERT1 BUSY/JUMPTO MMMM
  73. PROMPT NECT
  74. LET EQUAL A%,0
  75. DO:COM:Numbers:q1. Nova.PROC
  76. PAUSE
  77.  
  78. :MMMM
  79. TEST B% = 0
  80. IF YES JUMPTO PPPP
  81. COMM 2400-N-8-1-FULL
  82. GOSUB COUNTER
  83. TYPE Dialing DUNEDIN REALTY BBS^M
  84. DIAL ATS7=15DT, 733 2415
  85. PANICAFTER 30
  86. ONPANIC JUMPTO PPPP
  87. ALERT1 BUSY/JUMPTO PPPP
  88. PROMPT NECT
  89. LET EQUAL B%,0
  90. DO:COM:NUMBERS:q2. Dunedin Realty.PROC
  91. PAUSE
  92.  
  93. :PPPP
  94. TEST C% = 0
  95. IF YES JUMPTO QQQQ
  96. COMM 2400-N-8-1-FULL
  97. GOSUB COUNTER
  98. TYPE Dialing MEGANET BBS^M
  99. DIAL ATS7=15DT, 545 8050
  100. PANICAFTER 30
  101. ONPANIC JUMPTO QQQQ
  102. ALERT1 BUSY/JUMPTO QQQQ
  103. PROMPT NECT
  104. LET EQUAL C%,0
  105. DO:COM:NUMBERS:qMeganet.PROC
  106. PAUSE
  107.  
  108. :QQQQ
  109. TEST D% = 0
  110. IF YES JUMPTO MORE
  111. COMM 2400-N-8-1-FULL
  112. GOSUB COUNTER
  113. TYPE Dialing LITIGATOR BBS^M
  114. DIAL ATDT, 894 6402
  115. PANICAFTER 30
  116. ONPANIC JUMPTO MORE
  117. ALERT1 BUSY/JUMPTO MORE
  118. PROMPT NECT
  119. LET EQUAL D%,0
  120. DO:COM:NUMBERS:qLitigator.PROC
  121.  
  122. :END
  123. END
  124.  
  125. (Subroutine which counts redial cycle number)
  126. :COUNTER
  127. CLEAR
  128. TYPE This is the 
  129. TYPE W$
  130. CONTAINS W$,11
  131. IF YES JUMPTO YEST
  132. CONTAINS W$,12
  133. IF YES JUMPTO YEST
  134. CONTAINS W$,13
  135. IF YES JUMPTO YEST
  136.  
  137. RIGHT$ V$,1,W$
  138. CONTAINS V$,1
  139. :YEST
  140. IF YES TYPE st 
  141. IF YES JUMPTO TYPEE
  142. CONTAINS V$,2
  143. IF YES TYPE nd 
  144. IF YES JUMPTO TYPEE
  145. CONTAINS V$,3
  146. IF YES TYPE rd 
  147. IF YES JUMPTO TYPEE
  148. TYPE th 
  149. :TYPEE
  150. TYPE redial cycle.
  151. TYPE ^M
  152. RETURN
  153.  
  154. END
  155. (SUBROUTINE DIALALL)
  156. (list ALL numbers here to be redialed if
  157. (the DIAL ALL selection is selected)
  158. :DIALALL
  159. LET EQUAL A%,1
  160. LET EQUAL B%,1
  161. LET EQUAL C%,1
  162. LET EQUAL D%,1
  163. LET EQUAL R%,0
  164. RETURN
  165. END 
  166. :DONE
  167. ERASE ALL
  168. COPYINTO X$, No More Numbers to Dial!
  169. QUERY5
  170. JUMPTO DIALOG
  171.  
  172.  
  173. (What I have also done in my personal version, is put the command line
  174. (    LET EQUAL Z%,0
  175. (at the beginning of each of my separate dial procedure which I use
  176. (when I don’t want to redial with the Super Dialer.  At the beginning
  177. (of Super Dialer, I insert the command line
  178. (    LET EQUAL Z%,1
  179. (Then, at the end of each log-on procedure (NOT dialing procedures)
  180. (the following following command lines are inserted:
  181. (    PROMPT NO CARRIER
  182. (    TEST Z%,=1
  183. (    IF YES DO COM:SUPER DIALER 2.0
  184. (
  185. (That way, if I use Super Dialer to call, at the end of the BBS session,
  186. (my procedure will return me to Super Dialer to allow me to continue
  187. (redialing or abort.  If I don’t use Super Dialer, but rather use my
  188. (separate regular dialing procedure to call the BBS, at the end of
  189. (the BBS session, Super Dialer will not ask you what number you want to
  190. (dial.